home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™94 / Talks & Papers / Timothy Knox / Pocket6.3 / Source / OtherResources.asm < prev    next >
Assembly Source File  |  1994-06-24  |  12KB  |  426 lines
  1. ;  pForthRes.asm
  2. ; Fri Apr 29, 1988 09:47:46 v 0.4
  3. ; Mon May 27, 1991 15:53:35 update resources for 0.4.1
  4. ; Thu Jan 23, 1992 20:19:00 update resources for 0.5.2
  5. ; Sun Apr 12, 1992 23:58:00 update resources for 0.6
  6. ; Fri Jan 22, 1993 20:16:00 update resources for 0.6.2
  7. ; Thu Mar 04, 1993 19:57:00 change window position for Frontier window
  8. ; Wed Mar 24, 1993 23:11:00 new version experiments
  9.  
  10. ; Version identification resource
  11. .ALIGN    2
  12. RESOURCE    'p4TH'    0 '' 32
  13.     DC.B    37,'Pocket Forth  0.6.3',13,'7/4/93  C.Heilman'
  14.  
  15. ; the WIND resource
  16. .ALIGN    2
  17. RESOURCE     'WIND' 128  'PocketForth'    32 ; purgable
  18.     DC.W    62,2,240,386    ; t,l,b,r
  19.     DC.W    4        ; no grow doc proc wo/zoom
  20.     DC.W    0        ; invisible
  21.     DC.W    $100        ; closable
  22.     DC.L    0
  23.     DC.B    12,'Pocket Forth'
  24.  
  25. ; MenuBar Resources
  26.  
  27. .ALIGN 2
  28. RESOURCE    'MENU'    1    'Apple Menu'
  29.     DC.W    1    ; Menu ID
  30.     DC.W    0    ; Width holder
  31.     DC.W    0    ; Height
  32.     DC.L    0    ; ID holder for std menu
  33.     DC.L    $FFFFFFFB
  34.     DC.B    1    ; Title length
  35.     DC.B    20    ; Apple symbol
  36.     
  37.     DC.B    19,'About Pocket Forth…'
  38.     DC.B    0    ; no icon
  39.     DC.B    0    ; no control key
  40.     DC.B    0    ; no marking character
  41.     DC.B    0    ; style
  42.  
  43.     DC.B    1    ; About length
  44.     DC.B    '-'
  45.     DC.B    0    ; no icon
  46.     DC.B    0    ; no control key
  47.     DC.B    0    ; no marking character
  48.     DC.B    0    ; style
  49.     
  50.     DC.B    0    ; End of this menu item
  51.     
  52. .ALIGN 2
  53. RESOURCE    'MENU'    2    'File Menu'
  54.     DC.W    2    ; Menu ID
  55.     DC.W    0    ; Width holder
  56.     DC.W    0    ; Height
  57.     DC.L    0    ; ID holder for std menu
  58.     DC.L    $15B    ; Enable 
  59.     DC.B    4    ; Title length
  60.     DC.B    'File'
  61.     
  62.     DC.B    5    ; Item text length
  63.     DC.B    'Open…'
  64.     DC.B    0    ; no icon
  65.     DC.B    'O'    ; control oh (that's the letter)
  66.     DC.B    0    ; no marking char
  67.     DC.B    0    ; plain style
  68.  
  69.     DC.B    1    ; Item text length
  70.     DC.B    '-'
  71.     DC.B    0    ; no icon
  72.     DC.B    0    ; no control key
  73.     DC.B    0    ; no marking char
  74.     DC.B    0    ; plain style
  75.  
  76.     DC.B    16    ; Item text length
  77.     DC.B    'Save Dictionary…'
  78.     DC.B    0    ; no icon
  79.     DC.B    'S'    ; no control key
  80.     DC.B    0    ; no marking char
  81.     DC.B    0    ; plain style
  82.  
  83.     DC.B    9    ; Item text length
  84.     DC.B    'Debugger…'
  85.     DC.B    0    ; no icon
  86.     DC.B    0    ; no control key
  87.     DC.B    0    ; no marking char
  88.     DC.B    0    ; plain style
  89.  
  90.     DC.B    1    ; Item text length
  91.     DC.B    '-'
  92.     DC.B    0    ; no icon
  93.     DC.B    0    ; no control key
  94.     DC.B    0    ; no marking char
  95.     DC.B    0    ; plain style
  96.  
  97.     DC.B    6    ; Item text length
  98.     DC.B    'Print…'
  99.     DC.B    0    ; no icon
  100.     DC.B    'P'    ; control P
  101.     DC.B    0    ; no marking char
  102.     DC.B    0    ; plain style
  103.  
  104.     DC.B    1    ; Item text length
  105.     DC.B    '-'
  106.     DC.B    0    ; no icon
  107.     DC.B    0    ; no control key
  108.     DC.B    0    ; no marking char
  109.     DC.B    0    ; plain style
  110.     
  111.     DC.B    4    ; Item text length
  112.     DC.B    'Quit'
  113.     DC.B    0    ; no icon
  114.     DC.B    'Q'    ; control Q
  115.     DC.B    0    ; no marking char
  116.     DC.B    0    ; plain style
  117.  
  118.     DC.B    0    ; End of this menu item
  119.  
  120. .ALIGN 2
  121. RESOURCE    'MENU'    3    'Edit Menu'
  122.     DC.W    3    ; Menu ID
  123.     DC.W    0    ; Width holder
  124.     DC.W    0    ; Height
  125.     DC.L    0    ; ID holder for std menu
  126.     DC.L    $7B    ; enable flags
  127.     DC.B    4    ; Title length
  128.     DC.B    'Edit'
  129.     
  130.     DC.B    4    ; Item text length
  131.     DC.B    'Undo'
  132.     DC.B    0    ; no icon
  133.     DC.B    'Z'    ; control Z
  134.     DC.B    0    ; no marking char
  135.     DC.B    0    ; plain style
  136.     
  137.     DC.B    1    ; Item text length
  138.     DC.B    '-'
  139.     DC.B    0    ; no icon
  140.     DC.B    0    ; no control key
  141.     DC.B    0    ; no marking char
  142.     DC.B    0    ; plain style
  143.     
  144.     DC.B    3    ; Item text length
  145.     DC.B    'Cut'
  146.     DC.B    0    ; no icon
  147.     DC.B    'X'    ; control ecks
  148.     DC.B    0    ; no marking char
  149.     DC.B    0    ; plain style
  150.     
  151.     DC.B    4    ; Item text length
  152.     DC.B    'Copy'
  153.     DC.B    0    ; no icon
  154.     DC.B    'C'    ; control C
  155.     DC.B    0    ; no marking char
  156.     DC.B    0    ; plain style
  157.  
  158.     DC.B    5    ; Item text length
  159.     DC.B    'Paste'
  160.     DC.B    0    ; no icon
  161.     DC.B    'V'    ; control V
  162.     DC.B    0    ; no marking char
  163.     DC.B    0    ; plain style
  164.  
  165.     DC.B    5    ; Item text length
  166.     DC.B    'Clear'
  167.     DC.B    0    ; no icon
  168.     DC.B    0    ; no control key
  169.     DC.B    0    ; no marking char
  170.     DC.B    0    ; plain style
  171.     
  172.     DC.B    0    ; End of Edit Menu
  173.  
  174. ; b&w icon resource
  175.     
  176. .ALIGN    2
  177. RESOURCE    'BNDL'    128 '' 32
  178.     DC.L    'p4TH'        ; signature
  179.     DC.W    0        ; resource id of sig.
  180.     DC.W    1        ; number of resource types -1
  181.  
  182.     DC.L    'FREF'
  183.     DC.W    1        ; number of mappings -1
  184.     DC.W    0,128        ; map 0 to fref 128
  185.     DC.W    1,129        ; map 1 to fref 129
  186.     
  187.     DC.L    'ICN#'
  188.     DC.W    1        ; number of mappings -1
  189.     DC.W    0,128        ; map 0 to icon 128
  190.     DC.W    1,0        ; map 1 to icon 0
  191.     
  192. .ALIGN    2
  193. RESOURCE    'FREF'    128 '' 32
  194.     DC.B    'APPL',0,0,0
  195.  
  196. RESOURCE    'FREF'    129 '' 32
  197.     DC.B    'TEXT',0,1,0
  198.  
  199. .ALIGN 2
  200. RESOURCE    'ICN#'     128 ' ' 32
  201.     ; icon
  202.     DC.L    $00007F80,$0001FFF0,$00033FF8,$00031FFC
  203.     DC.L    $00001FFE,$00001FFE,$00001FFF,$00FC3FFF
  204.     DC.L    $0F0223FF,$300221FF,$400238FF,$400254FF
  205.     DC.L    $818258FF,$8342803F,$8302407E,$8781383E
  206.     DC.L    $8301303C,$83012038,$87811E38,$8001017C
  207.     DC.L    $800100C2,$80010080,$AAA90130,$95520078
  208.     DC.L    $80020048,$EFFA0048,$380600FC,$800007EF
  209.     DC.L    $10000FFE,$02000FF0,$004B7FC0,$00000000
  210.     ; mask
  211.     DC.L    $00007F80,$0001FFF0,$00033FF8,$00031FFC
  212.     DC.L    $00001FFE,$00001FFE,$00001FFF,$00FC3FFF
  213.     DC.L    $0FFE3FFF,$3FFE3FFF,$7FFE3FFF,$7FFE7FFF
  214.     DC.L    $FFFE7FFF,$FFFEFFFF,$FFFE7FFE,$FFFF3FFE
  215.     DC.L    $FFFF3FFC,$FFFF3FF8,$FFFF1FF8,$FFFF01FC
  216.     DC.L    $FFFF00C2,$FFFF0080,$FFFF0130,$FFFE0078
  217.     DC.L    $FFFE0078,$FFFE0078,$380600FC,$800007FF
  218.     DC.L    $10000FFE,$02000FF0,$004B7FC0,$00000000
  219.  
  220. .ALIGN 2
  221. RESOURCE    'ICON'    128 ' ' 32
  222.     DC.W    $0000,$001E,$0000,$007B,$0000,$00F3,$0000,$3DF0
  223.     DC.W    $0000,$FFF8,$0000,$9FF8,$0000,$0FFC,$00FF,$187C
  224.     DC.W    $0F01,$1BBE,$7001,$14CE,$8001,$0327,$8000,$8721
  225.     DC.W    $8000,$89C1,$8000,$9080,$8000,$9E00,$8000,$8118
  226.     DC.W    $8000,$80E0,$8000,$8041,$8000,$803E,$8000,$4000
  227.     DC.W    $8000,$4000,$8000,$4000,$8000,$4000,$9554,$C0C0
  228.     DC.W    $AAA9,$01E0,$8001,$0120,$EFFD,$0120,$3803,$03F0
  229.     DC.W    $8000,$1F9C,$1000,$3FF8,$0200,$3FC0,$0049,$7F00
  230.  
  231. .ALIGN    2
  232. RESOURCE    'cicn'    128 ' ' 32
  233.     DC.W    $0000,$0000,$8010,$0000,$0000,$0020,$0020,$0000
  234.     DC.W    $0000,$0000,$0000,$0048,$0000,$0048,$0000,$0000
  235.     DC.W    $0004,$0001,$0004,$0000,$0000,$0000,$0000,$0000
  236.     DC.W    $0000,$0000,$0000,$0004,$0000,$0000,$0020,$0020
  237.     DC.W    $0000,$0000,$0004,$0000,$0000,$0020,$0020,$0000
  238.     DC.W    $0000,$0000,$001E,$0000,$007B,$0000,$00F3,$0000
  239.     DC.W    $3DF0,$0000,$FFF8,$0000,$9FF8,$0000,$0FFC,$00FF
  240.     DC.W    $1FFC,$0FFF,$1FFE,$7FFF,$17FE,$FFFF,$03FF,$FFFF
  241.     DC.W    $87FF,$FFFF,$8FFF,$FFFF,$9FFF,$FFFF,$9FFF,$FFFF
  242.     DC.W    $81FF,$FFFF,$80FF,$FFFF,$807F,$FFFF,$803E,$FFFF
  243.     DC.W    $C000,$FFFF,$C000,$FFFF,$C000,$FFFF,$C000,$FFFF
  244.     DC.W    $C0C0,$FFFF,$01E0,$FFFF,$01E0,$FFFF,$01E0,$3803
  245.     DC.W    $03F0,$8000,$1FFC,$1000,$3FF8,$0200,$3FC0,$0049
  246.     DC.W    $7F00,$0000,$001E,$0000,$007B,$0000,$00F3,$0000
  247.     DC.W    $3DF0,$0000,$FFF8,$0000,$9FF8,$0000,$0FFC,$00FF
  248.     DC.W    $187C,$0F01,$1BBE,$7001,$14CE,$8001,$0327,$8000
  249.     DC.W    $8721,$8000,$89C1,$8000,$9080,$8000,$9E00,$8000
  250.     DC.W    $8118,$8000,$80E0,$8000,$8041,$8000,$803E,$8000
  251.     DC.W    $4000,$8000,$4000,$8000,$4000,$8000,$4000,$9554
  252.     DC.W    $C0C0,$AAA9,$01E0,$8001,$0120,$EFFD,$0120,$3803
  253.     DC.W    $03F0,$8000,$1F9C,$1000,$3FF8,$0200,$3FC0,$0049
  254.     DC.W    $7F00,$0000,$0000,$0000,$000D,$0000,$FFFF,$FFFF
  255.     DC.W    $FFFF,$0001,$FFFF,$FFFF,$CCCC,$0002,$FFFF,$CCCC
  256.     DC.W    $9999,$0003,$CCCC,$9999,$6666,$0004,$3333,$6666
  257.     DC.W    $6666,$0005,$3333,$3333,$6666,$0006,$DDDD,$DDDD
  258.     DC.W    $DDDD,$0007,$8888,$8888,$8888,$0008,$7777,$7777
  259.     DC.W    $7777,$0009,$5555,$5555,$5555,$000A,$2222,$2222
  260.     DC.W    $2222,$000B,$FFFF,$FFFF,$0000,$000C,$DDDD,$0000
  261.     DC.W    $0000,$000F,$0000,$0000,$0000,$0000,$0000,$0000
  262.     DC.W    $0000,$0000,$0000,$0005,$5550,$0000,$0000,$0000
  263.     DC.W    $0000,$0000,$0000,$0555,$5055,$0000,$0000,$0000
  264.     DC.W    $0000,$0000,$0000,$5555,$0055,$0000,$0000,$0000
  265.     DC.W    $0000,$0055,$5505,$5555,$0000,$0000,$0000,$0000
  266.     DC.W    $0000,$5555,$5555,$5555,$5000,$0000,$0000,$0000
  267.     DC.W    $0000,$5005,$5555,$5555,$5000,$0000,$0000,$0000
  268.     DC.W    $0000,$0000,$5555,$5555,$5500,$0000,$0000,$FFFF
  269.     DC.W    $FFFF,$0005,$5111,$1555,$5500,$0000,$FFFF,$1111
  270.     DC.W    $111F,$0005,$51FF,$F155,$5550,$0FFF,$1111,$1222
  271.     DC.W    $223F,$0005,$0F00,$3311,$5550,$F111,$1222,$2222
  272.     DC.W    $223F,$0000,$0044,$0031,$1555,$F122,$2222,$2222
  273.     DC.W    $2223,$F000,$0FF4,$00C1,$1115,$F122,$2222,$2222
  274.     DC.W    $2223,$F000,$F11F,$FC11,$1115,$F122,$2222,$2222
  275.     DC.W    $2223,$F00F,$1111,$F122,$2211,$F122,$2222,$2222
  276.     DC.W    $2223,$F00F,$FFF1,$1222,$2222,$F122,$2222,$2222
  277.     DC.W    $2223,$F000,$000F,$222F,$F222,$F122,$2222,$2222
  278.     DC.W    $2223,$F000,$0000,$FFF2,$2222,$F122,$2222,$2222
  279.     DC.W    $2223,$F000,$0000,$0F22,$222F,$F122,$2222,$2222
  280.     DC.W    $2223,$F000,$0000,$00FF,$FFF0,$F122,$2222,$2222
  281.     DC.W    $2222,$3F00,$0000,$0000,$0000,$F122,$2222,$2222
  282.     DC.W    $2222,$3F00,$0000,$0000,$0000,$F122,$2222,$2222
  283.     DC.W    $2222,$3F00,$0000,$0000,$0000,$F122,$2222,$2222
  284.     DC.W    $2223,$3F00,$0000,$0000,$0000,$F177,$7777,$7777
  285.     DC.W    $7733,$FF00,$0000,$9700,$0000,$F177,$7777,$7777
  286.     DC.W    $773F,$0000,$0009,$9970,$0000,$F133,$3333,$3333
  287.     DC.W    $333F,$0000,$0009,$6690,$0000,$FFF3,$FFFF,$FFFF
  288.     DC.W    $FF3F,$0000,$0007,$6690,$0000,$00FF,$F000,$0000
  289.     DC.W    $00FF,$0000,$00F7,$9999,$0000,$F000,$0000,$0000
  290.     DC.W    $0000,$000F,$7779,$9BCF,$9F00,$000F,$0000,$0000
  291.     DC.W    $0000,$00F7,$8989,$99A9,$F000,$0000,$00F0,$0000
  292.     DC.W    $0000,$0099,$9999,$9F00,$0000,$0000,$0000,$0F00
  293.     DC.W    $F00F,$0FFF,$FFFF,$0000,$0000
  294.  
  295. ; alert resources
  296.  
  297. .ALIGN    2
  298. RESOURCE    'ALRT'    257    'About'
  299.     DC.W    50,50,188,242    ; t,l,b,r
  300.     DC.W    257        ; DITL ID number
  301.     DC.W    $4444        ; Stages ($4444 = just display)
  302.     DC.W    $A80A        ; autoposition center parent
  303.  
  304. .ALIGN    2
  305. RESOURCE    'DITL'    257    'About'
  306.     DC.W    3        ; Number of items -1
  307.     
  308.     ; Item number 1: the userItem 'button'
  309.     DC.L    0        ; handle holder
  310.     DC.W    0,0,144,210    ; t,l,b,r
  311.     DC.B    0        ; useritem
  312.     DC.B    0
  313.  
  314.     ; Item number 2: the info. pict
  315.     DC.L    0        ; handle holder
  316.     DC.W    29,16,123,179    ; t,l,b,r
  317.     DC.B    $40,2        ; disabled+pict,length of following field
  318.     DC.W    128        ; id of PICT resource
  319.  
  320.     ; item number 3: the icon
  321.     DC.L    0        ; handle holder
  322.     DC.W    12,140,44,172    ; t,l,b,r
  323.     DC.B    $A0,2        ; disabled+pict,length of following field
  324.     DC.W    128        ; id of PICT resource
  325.  
  326.     ; Item number 4: the hdlg
  327.     DC.L    0        ; handle holder
  328.     DC.W    $FFFE,$FFFE,$FFFE,$FFFE    ; off screen rect
  329.     DC.B    $81,4
  330.     DC.W    1,257        ; helpItem,id of hdlg
  331.  
  332. .ALIGN    2
  333. RESOURCE    'ALRT'    258    'RedAlert'
  334.     DC.W    170,15,265,325    ; t,l,b,r
  335.     DC.W    258        ; DITL ID number
  336.     DC.W    $4444        ; Stages
  337.     DC.W    $B00A        ; autoposition alert parent
  338.  
  339. .ALIGN    2
  340. RESOURCE    'DITL'    258    'RedAlert'
  341.     DC.W    1        ; Number of items -1
  342.  
  343.     ; Item number 1
  344.     DC.L    0        ; handle holder
  345.     DC.W    61,120,83,195    ; t,l,b,r
  346.     DC.B    4        ; type
  347.     DC.B    2,'Ok'
  348.  
  349.     ; Item number 2
  350.     DC.L    0        ; handle holder
  351.     DC.W    19,70,57,295    ; t,l,b,r
  352.     DC.B    136        ; type
  353.     DC.B    58,'An error occured, and the '
  354.     DC.B    'dictionary was not (re)entered. '
  355.  
  356. .ALIGN    2
  357. RESOURCE    'ALRT'    259    'SaveAlert'
  358.     DC.W    82,94,202,350    ; t,l,b,r
  359.     DC.W    259        ; DITL ID number
  360.     DC.W    $4444        ; Stages
  361.     DC.W    $B00A        ; autoposition alert parent
  362.  
  363. .ALIGN    2
  364. RESOURCE    'DITL'    259    'SaveAlert'
  365.     DC.W    3        ; Number of items -1
  366.  
  367.     ; Item number 1
  368.     DC.L    0        ; handle holder
  369.     DC.W    $51,$99,$65,$d3    ; t,l,b,r
  370.     DC.B    4        ; type
  371.     DC.B    2,'Ok'
  372.  
  373.     ; Item number 2
  374.     DC.L    0        ; handle holder
  375.     DC.W    $51,$35,$65,$6f    ; t,l,b,r
  376.     DC.B    4        ; type
  377.     DC.B    6,'Cancel'
  378.  
  379.     ; Item number 3
  380.     DC.L    0        ; handle holder
  381.     DC.W    $11,$1b,$45,$f3    ; t,l,b,r
  382.     DC.B    $88        ; type
  383.     DC.B    83,'Please confirm your choice to replace the '
  384.     DC.B    'current dictionary with the memory image.'
  385.  
  386.     ; Item number 4: the hdlg
  387.     DC.L    0        ; handle holder
  388.     DC.W    $FFFE,$FFFE,$FFFE,$FFFE    ; off screen rect
  389.     DC.B    $81,4
  390.     DC.W    1,259        ; helpItem,id of hdlg
  391.  
  392. .ALIGN    2
  393. RESOURCE    'PICT'    128
  394.     DC.W    $0160,$FFFF,$FFFF,$005D,$00A2,$1101,$A000,$82A1
  395.     DC.W    $0096,$000C,$0100,$0000,$0200,$0000,$0000,$0000
  396.     DC.W    $A100,$9A00,$08FF,$FC00,$0000,$3400,$0001,$000A
  397.     DC.W    $0000,$0000,$0011,$006B,$2C00,$0B00,$0208,$4E65
  398.     DC.W    $7720,$596F,$726B,$0300,$020D,$000C,$2E00,$0400
  399.     DC.W    $0001,$002B,$010C,$0F43,$6872,$6973,$2048,$6569
  400.     DC.W    $6C6D,$616E,$D573,$A000,$97A1,$0096,$000C,$0100
  401.     DC.W    $0000,$0200,$0000,$0000,$0000,$A100,$9A00,$0800
  402.     DC.W    $0200,$0000,$4D00,$0001,$000A,$002B,$0001,$0044
  403.     DC.W    $009E,$0D00,$0A2B,$0129,$1841,$6C74,$6572,$6E61
  404.     DC.W    $7469,$7665,$2070,$726F,$6772,$616D,$6D69,$6E67
  405.     DC.W    $0D2A,$0C17,$6C61,$6E67,$7561,$6765,$2066,$6F72
  406.     DC.W    $204D,$6163,$696E,$746F,$7368,$2EA0,$0097,$A100
  407.     DC.W    $9600,$0C01,$0000,$0002,$0000,$0000,$0000,$00A1
  408.     DC.W    $009A,$0008,$FFFC,$0000,$0043,$0000,$0100,$0A00
  409.     DC.W    $5000,$0000,$5C00,$8928,$005A,$0001,$1B76,$6572
  410.     DC.W    $7369,$6F6E,$2030,$2E36,$2E33,$2020,$2020,$2020
  411.     DC.W    $2037,$2f34,$2f39,$3320,$A000,$97A1,$0096,$000C
  412.     DC.W    $0100,$0000,$0200,$0000,$0000,$0000,$A100,$9A00
  413.     DC.W    $08FF,$F900,$0000,$4F00,$0001,$000A,$0010,$0000
  414.     DC.W    $002D,$00A1,$0D00,$1828,$0025,$0001,$0C50,$6F63
  415.     DC.W    $6B65,$7420,$466F,$7274,$68A0,$0097,$A000,$83FF
  416.  
  417. .ALIGN 2
  418. RESOURCE    'SIZE'    $FFFF
  419.     DC.W    %0101100011000000    ; $58C0    
  420.     DC.L    $00020000
  421.     DC.L    $00010000
  422.  
  423. INCLUDE    System7Resources.txt    ; color icons and balloon help
  424.  
  425.     END
  426.